home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / AK_Decrypter_1.AMOS / AK_Decrypter_1.amosSourceCode
AMOS Source Code  |  1995-12-30  |  1KB  |  44 lines
  1. ' Quick Encryption program.
  2.  
  3. ' This program will only encrypt 10 letters of any piece of text.  
  4. ' These are A-I, and CHR$(10), a character string VITAL to the ASCII 
  5. ' System. Characters are in lower case.
  6. '
  7. ' This is the program which will decrypt an existing crunched file 
  8. '
  9.  
  10. Do 
  11.    F$=Fsel$("","","Select the SOURCE file","to Decrypt")
  12.    G$=Fsel$("","","Select DEST file")
  13.    
  14.    Open In 1,F$ : Reserve As Data 10,Lof(1)
  15.    Reserve As Data 11,Lof(1)
  16.    Close : Bload F$,10 : Rem Load in all of source file 
  17.    
  18.    ' Now for the Loop 
  19.    
  20.    LE=0
  21.        Repeat 
  22.           P=Peek(Start(10)+LE)
  23.           If P>0 and P<9
  24.              If P=2 : CHAR=97 : Print "Changed Value" : End If 
  25.              If P=5 : CHAR=98 : Print "Changed Value" : End If 
  26.              If P=1 : CHAR=99 : Print "Changed Value" : End If 
  27.              If P=4 : CHAR=100 : Print "Changed Value" : End If 
  28.              If P=3 : CHAR=101 : Print "Changed Value" : End If 
  29.              If P=8 : CHAR=102 : Print "Changed Value" : End If 
  30.              If P=6 : CHAR=103 : Print "Changed Value" : End If 
  31.              If P=7 : CHAR=104 : Print "Changed Value" : End If 
  32.           Else 
  33.              CHAR=P
  34.           End If 
  35.  
  36.           If P=252 : CHAR=10 : Print "Changed CHR$(10)" : End If 
  37.  
  38.           Poke Start(11)+LE,CHAR
  39.           Inc LE
  40.        Until LE>Length(10)
  41.    
  42.    Bsave G$,Start(11) To Start(11)+Length(11)
  43.    Erase 10 : Erase 11 : Cls 
  44. Loop